home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 76 / XENIATGM66.iso / Indiana Jones / Indiana Jones.exe / RESOURCE / PREVIEW.GOB / cog_gen_elevstandard.cog < prev    next >
Text File  |  1999-11-15  |  1KB  |  60 lines
  1. # Jones 3D Cog Script
  2. #
  3. # gen_ElevStandard.cog
  4. #
  5. # A Basic elevator Cog
  6. # This elevator will go up to frame one, sleep, then come back down to frame 0 when
  7. # entered from the bottom.  When entered from the top, it should stay at the bottom.
  8. #
  9. # 4/6/97        Added checks for moving elevator so it wouldn't get stuck in an endless loop
  10. # 8/12/97    Added blocked handler
  11. # 8/28/97    Removed blocked handler
  12. #
  13. # [IS]
  14. #
  15. # (C) 1997 LucasArts Entertainment Co. All Rights Reserved
  16. # ========================================================================================
  17.  
  18. symbols
  19.     message    crossed
  20.     message    arrived
  21.     message    timer
  22.  
  23.     surface    lower_adjoin0
  24.     surface    lower_adjoin1
  25.  
  26.     thing        elevator
  27.  
  28.     float        start_wait=0.25
  29.     float        sleeptime=2.0
  30.     float        speed=4.0
  31. end
  32.  
  33. code
  34. # ........................................................................................
  35.  
  36. crossed:
  37.     if (IsThingMoving(elevator)) return;
  38.     if (GetCurFrame(elevator) != 0) return;
  39.  
  40.     Sleep(start_wait);            // pause before moving up
  41.  
  42.     MoveToFrame(elevator, 1, speed);
  43.     return;
  44.  
  45. # ........................................................................................
  46.  
  47. arrived:
  48.     if (GetCurFrame(elevator) == 0) return;
  49.     SetTimer(sleeptime);
  50.     return;
  51.  
  52. # ........................................................................................
  53.  
  54. timer:    
  55.     MoveToFrame(elevator, 0, speed);
  56.     return;
  57.  
  58. end
  59.  
  60.